inherited frmCadVeiculos: TfrmCadVeiculos
  Left = 326
  Top = 153
  Caption = 'Ve'#237'culos'
  ClientHeight = 338
  ClientWidth = 763
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 13
  inherited Panel1: TPanel
    Top = 301
    Width = 763
  end
  inherited Panel2: TPanel
    Width = 763
    Height = 301
    inherited Panel4: TPanel [0]
      Width = 761
      Height = 259
      object Label1: TLabel [0]
        Left = 16
        Top = 16
        Width = 27
        Height = 13
        Caption = 'Placa'
        FocusControl = dbedtPlaca
      end
      object Label4: TLabel [1]
        Left = 440
        Top = 56
        Width = 16
        Height = 13
        Caption = 'Cor'
        FocusControl = dbedtCor
      end
      object Label5: TLabel [2]
        Left = 16
        Top = 56
        Width = 35
        Height = 13
        Caption = 'Modelo'
        FocusControl = dbedtModelo
      end
      object Label6: TLabel [3]
        Left = 16
        Top = 96
        Width = 31
        Height = 13
        Caption = 'Chassi'
        FocusControl = dbedtChassi
      end
      object Label7: TLabel [4]
        Left = 296
        Top = 96
        Width = 70
        Height = 13
        Caption = 'Quilometragem'
        FocusControl = dbedtQuilometragem
      end
      object Label9: TLabel [5]
        Left = 136
        Top = 16
        Width = 33
        Height = 13
        Caption = 'Estado'
        FocusControl = dbedtEstado
      end
      object Label10: TLabel [6]
        Left = 456
        Top = 16
        Width = 33
        Height = 13
        Caption = 'Cidade'
      end
      object Label11: TLabel [7]
        Left = 440
        Top = 96
        Width = 53
        Height = 13
        Caption = 'Propriet'#225'rio'
        FocusControl = dbedtProprietario
      end
      object Label2: TLabel [8]
        Left = 16
        Top = 144
        Width = 63
        Height = 13
        Caption = 'Observa'#231#245'es'
        FocusControl = DBMemo
      end
      inherited SbHints: TStatusBar
        Top = 236
        Width = 753
      end
      object dbedtPlaca: TDBEdit
        Left = 16
        Top = 32
        Width = 108
        Height = 21
        Hint = 'Placa do Ve'#237'culo'
        DataField = 'VEI_PLACA'
        DataSource = DtSrc
        TabOrder = 0
      end
      object dbedtCor: TDBEdit
        Left = 440
        Top = 72
        Width = 264
        Height = 21
        Hint = 'Cor do Ve'#237'culo'
        DataField = 'VEI_COR'
        DataSource = DtSrc
        TabOrder = 6
      end
      object dbedtModelo: TDBEdit
        Left = 16
        Top = 72
        Width = 417
        Height = 21
        Hint = 'Modelo do Ve'#237'culo'
        DataField = 'VEI_MODELO'
        DataSource = DtSrc
        TabOrder = 5
      end
      object dbedtChassi: TDBEdit
        Left = 16
        Top = 112
        Width = 264
        Height = 21
        Hint = 'Chassi do Ve'#237'culo'
        DataField = 'VEI_CHASSI'
        DataSource = DtSrc
        TabOrder = 7
      end
      object dbedtQuilometragem: TDBEdit
        Left = 296
        Top = 112
        Width = 134
        Height = 21
        Hint = 'Quilometragem do Ve'#237'culo'
        DataField = 'VEI_QUILOMETRAGEM'
        DataSource = DtSrc
        TabOrder = 8
      end
      object dbedtEstado: TDBEdit
        Left = 136
        Top = 32
        Width = 30
        Height = 21
        Hint = 'Sigla do Estado onde o Ve'#237'culo foi licenciado pela '#250'ltima vez'
        DataField = 'VEI_ESTADO'
        DataSource = DtSrc
        TabOrder = 1
        OnExit = dbedtEstadoExit
      end
      object btnEstado: TBitBtn
        Left = 168
        Top = 32
        Width = 25
        Height = 21
        Hint = 'Pesquisar Estado'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
        TabStop = False
        OnClick = btnEstadoClick
      end
      object stEstado: TEdit
        Left = 200
        Top = 32
        Width = 241
        Height = 21
        Hint = 'Nome do Estado onde o Ve'#237'culo foi licenciado pela '#250'ltima vez'
        TabStop = False
        AutoSize = False
        Color = clBtnFace
        Ctl3D = False
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 3
      end
      object cmbbxCidades: TDBLookupComboBox
        Left = 456
        Top = 32
        Width = 289
        Height = 21
        Hint = 'Cidade onde o Ve'#237'culo foi licenciado pela '#250'ltima vez'
        BevelOuter = bvNone
        BevelKind = bkFlat
        Ctl3D = True
        DataField = 'VEI_CIDADE'
        DataSource = DtSrc
        DropDownRows = 10
        Enabled = False
        KeyField = 'CID_CODIGO'
        ListField = 'CID_DESCRI'
        ListFieldIndex = 1
        ListSource = Dts_Cidades
        ParentCtl3D = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
      end
      object dbedtProprietario: TDBEdit
        Left = 440
        Top = 112
        Width = 30
        Height = 21
        Hint = 'C'#243'digo do Propriet'#225'rio do Ve'#237'culo'
        DataField = 'VEI_PROPRIETARIO'
        DataSource = DtSrc
        TabOrder = 9
        OnExit = dbedtProprietarioExit
      end
      object btnProprietario: TBitBtn
        Left = 472
        Top = 112
        Width = 25
        Height = 21
        Hint = 'Pesquisar Propriet'#225'rio'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 10
        TabStop = False
        OnClick = btnProprietarioClick
      end
      object stProprietario: TEdit
        Left = 504
        Top = 112
        Width = 241
        Height = 21
        Hint = 'Nome do Propriet'#225'rio do Ve'#237'culo'
        TabStop = False
        AutoSize = False
        Color = clBtnFace
        Ctl3D = False
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Verdana'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 11
      end
      object DBMemo: TDBMemo
        Left = 16
        Top = 160
        Width = 729
        Height = 65
        DataField = 'VEI_OBSERVACOES'
        DataSource = DtSrc
        TabOrder = 13
      end
    end
    inherited Panel3: TPanel [1]
      Width = 761
      Caption = 'Ve'#237'culos'
      inherited GroupBox1: TGroupBox
        Left = 682
      end
    end
  end
  inherited DtSrc: TDataSource
    DataSet = SQLC_Veiculos
    Left = 88
    Top = 8
  end
  object SQLC_Veiculos: TSQLClientDataSet
    CommandText = 'select * from VEICULOS where vei_idf=:pVeiculo'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pVeiculo'
        ParamType = ptInput
      end>
    AfterInsert = SQLC_VeiculosAfterInsert
    DBConnection = DtmGeral.ConexaoBanco
    Left = 56
    Top = 8
    object SQLC_VeiculosVEI_IDF: TIntegerField
      FieldName = 'VEI_IDF'
      Required = True
    end
    object SQLC_VeiculosVEI_PLACA: TStringField
      DisplayLabel = 'Placa'
      FieldName = 'VEI_PLACA'
      Required = True
      Size = 8
    end
    object SQLC_VeiculosVEI_ESTADO: TStringField
      DisplayLabel = 'Estado'
      FieldName = 'VEI_ESTADO'
      Required = True
      Size = 2
    end
    object SQLC_VeiculosVEI_CIDADE: TStringField
      DisplayLabel = 'Cidade'
      FieldName = 'VEI_CIDADE'
      Required = True
      Size = 3
    end
    object SQLC_VeiculosVEI_COR: TStringField
      DisplayLabel = 'Cor'
      FieldName = 'VEI_COR'
    end
    object SQLC_VeiculosVEI_MODELO: TStringField
      DisplayLabel = 'Modelo'
      FieldName = 'VEI_MODELO'
    end
    object SQLC_VeiculosVEI_CHASSI: TStringField
      DisplayLabel = 'Chassi'
      FieldName = 'VEI_CHASSI'
    end
    object SQLC_VeiculosVEI_QUILOMETRAGEM: TIntegerField
      DisplayLabel = 'Quilometragem'
      FieldName = 'VEI_QUILOMETRAGEM'
    end
    object SQLC_VeiculosVEI_PROPRIETARIO: TIntegerField
      DisplayLabel = 'Propriet'#225'rio'
      FieldName = 'VEI_PROPRIETARIO'
      Required = True
    end
    object SQLC_VeiculosVEI_OBSERVACOES: TMemoField
      DisplayLabel = 'Observa'#231#245'es'
      FieldName = 'VEI_OBSERVACOES'
      BlobType = ftMemo
      Size = 1
    end
  end
  object Dts_Cidades: TDataSource
    DataSet = SQLC_Cidade
    Left = 624
    Top = 56
  end
  object SQLC_Cidade: TSQLClientDataSet
    CommandText = 'select * from CIDADES where cid_estcod = :pest'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftString
        Name = 'pest'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 592
    Top = 56
    object SQLC_CidadeCID_ESTCOD: TStringField
      FieldName = 'CID_ESTCOD'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 2
    end
    object SQLC_CidadeCID_CODIGO: TStringField
      FieldName = 'CID_CODIGO'
      ProviderFlags = [pfInUpdate, pfInWhere, pfInKey]
      Required = True
      Size = 3
    end
    object SQLC_CidadeCID_DESCRI: TStringField
      FieldName = 'CID_DESCRI'
      Required = True
      Size = 35
    end
  end
end
